home *** CD-ROM | disk | FTP | other *** search
/ PC Home 49 / PC_Home_Issue_49.iso / lldemo / lldemo.shr / ROSETTA.EXE / ROSETTA.DXR / 00595_setup screen scripts.ls < prev    next >
Encoding:
Text File  |  1996-06-24  |  2.3 KB  |  99 lines
  1. on pickYeah which
  2.   global gStuMethod
  3.   highlightYeahSnd(which)
  4.   updateStage()
  5.   if which = 4 then
  6.   else
  7.     puppetSound(the name of cast (the number of cast "Harp" + which - 1))
  8.     updateStage()
  9.     repeat while soundBusy(1)
  10.     end repeat
  11.     puppetSound(0)
  12.   end if
  13.   setaProp(gStuMethod, #yes_sound, which)
  14. end
  15.  
  16. on pickNo which
  17.   global gStuMethod
  18.   highlightNoSnd(which)
  19.   updateStage()
  20.   if which = 4 then
  21.   else
  22.     puppetSound(the name of cast (the number of cast "Organ" + which - 1))
  23.     updateStage()
  24.     repeat while soundBusy(1)
  25.     end repeat
  26.     puppetSound(0)
  27.   end if
  28.   setaProp(gStuMethod, #no_sound, which)
  29. end
  30.  
  31. on adjVolume dx
  32.   global gPathList, gStuMethod
  33.   set vol to the text of cast "Volume"
  34.   set vol to integer(vol + dx)
  35.   if vol > 7 then
  36.     set vol to 7
  37.   else
  38.     if vol < 1 then
  39.       set vol to 1
  40.     end if
  41.   end if
  42.   registerVolume(vol)
  43.   setVolButton(vol)
  44.   updateStage()
  45.   if the stillDown then
  46.     repeat while the lastClick < 30
  47.       nothing()
  48.     end repeat
  49.     set nextTime to the ticks + 15
  50.     repeat while the stillDown
  51.       if (the ticks > nextTime) and ((vol + dx) <= 7) and ((vol + dx) >= 1) then
  52.         set vol to integer(vol + dx)
  53.         set nextTime to the ticks + 15
  54.         registerVolume(vol)
  55.         setVolButton(vol)
  56.         updateStage()
  57.       end if
  58.     end repeat
  59.   end if
  60.   set fname to makeImagePath(gPathList, #sound, 1)
  61.   sound playFile 1, fname
  62.   updateStage()
  63.   set startTicks to the ticks
  64.   repeat while soundBusy(1) and (the ticks < (startTicks + 120))
  65.   end repeat
  66.   sound stop 1
  67.   setaProp(gStuMethod, #volume, vol)
  68. end
  69.  
  70. on adjTime dx
  71.   global gTimerTicks
  72.   set time to the text of cast "TimerSecs"
  73.   set time to integer(time + dx)
  74.   if time > 30 then
  75.     set time to 30
  76.   else
  77.     if time < 1 then
  78.       set time to 1
  79.     end if
  80.   end if
  81.   set the text of cast "TimerSecs" to string(time)
  82.   if the stillDown then
  83.     repeat while the lastClick < 30
  84.       nothing()
  85.     end repeat
  86.     set nextTime to the ticks + 15
  87.     repeat while the stillDown
  88.       if (the ticks > nextTime) and ((time + dx) <= 30) and ((time + dx) >= 1) then
  89.         set time to integer(time + dx)
  90.         set nextTime to the ticks + 15
  91.         set the text of cast "TimerSecs" to string(time)
  92.         updateStage()
  93.       end if
  94.     end repeat
  95.   end if
  96.   set gTimerTicks to time * 60
  97.   updateStage()
  98. end
  99.